object frmThumbnails: TfrmThumbnails Left = 252 Top = 107 HorzScrollBar.Visible = False VertScrollBar.Visible = False AutoScroll = False Caption = 'Thumbnail Generator' ClientHeight = 402 ClientWidth = 592 Color = clBtnFace Constraints.MinHeight = 429 Constraints.MinWidth = 600 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = False Position = poScreenCenter Scaled = False OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object pgcPreview: TPageControl Left = 292 Top = 0 Width = 300 Height = 383 ActivePage = tbsOriginal Anchors = [akLeft, akTop, akRight, akBottom] TabOrder = 1 TabStop = False OnChange = pgcPreviewChange OnChanging = pgcPreviewChanging object tbsOriginal: TTabSheet HelpContext = 80 Caption = '&Original image' ImageIndex = 1 object bvlButtons: TBevel Left = 0 Top = 304 Width = 292 Height = 4 Anchors = [akLeft, akRight, akBottom] Shape = bsTopLine end object imgOriginal: TEfImageEnView Left = 0 Top = 0 Width = 292 Height = 289 Cursor = crDefault Hint = 'Original image; right click with your mouse to open shortcut men' + 'u' ParentCtl3D = False Center = True MouseInteract = [miScroll] Anchors = [akLeft, akTop, akRight, akBottom] PopupMenu = pmnOriginalImage TabOrder = 0 ScaleToFit = False end end object tbsPreview: TTabSheet HelpContext = 90 Caption = '&Preview output' ImageIndex = 2 object bvlButtons2: TBevel Left = 0 Top = 304 Width = 292 Height = 4 Anchors = [akLeft, akRight, akBottom] Shape = bsTopLine end object lblNoFile: TLabel Left = 0 Top = 0 Width = 292 Height = 289 Alignment = taCenter Anchors = [akLeft, akTop, akRight, akBottom] AutoSize = False Caption = 'There is no valid image selected.' Layout = tlCenter end object imgPreview: TEfImageEnView Left = 0 Top = 0 Width = 292 Height = 289 Cursor = crDefault Hint = 'Thumbnail configured according to settings; right click with you' + 'r mouse to open shortcut menu' ParentCtl3D = False Center = True MouseInteract = [miScroll] Anchors = [akLeft, akTop, akRight, akBottom] PopupMenu = pmnPreviewImage Visible = False TabOrder = 0 ScaleToFit = False end end end object pgcFiles: TPageControl Left = 0 Top = 0 Width = 292 Height = 383 ActivePage = tbsFiles Anchors = [akLeft, akTop, akBottom] TabOrder = 0 TabStop = False OnChange = pgcFilesChange OnChanging = pgcFilesChanging object tbsFiles: TTabSheet HelpContext = 70 Caption = '&Files' object lbl_cmbFileFilter: TEnhLabel Left = 8 Top = 9 Width = 59 Height = 13 Caption = 'Files of &type:' FocusControl = cmbFileFilter end object lblLookInFolder: TEnhLabel Left = 8 Top = 56 Width = 38 Height = 13 Caption = 'Look &in:' end object lbl_edtSaveIn: TEnhLabel Left = 8 Top = 309 Width = 39 Height = 13 Caption = 'Sa&ve in:' FocusControl = edtSaveIn end object cmbFileFilter: TLblComboBox Left = 8 Top = 24 Width = 265 Height = 21 Hint = 'Defines the type of images to display in the file list' Style = csDropDownList DropDownCount = 12 ItemHeight = 13 TabOrder = 0 OnChange = cmbFileFilterChange Items.Strings = ( 'All images' 'Web images (*.jpg;*.jpe;*.jpeg;*.png)' 'JPEG (*.jpg;*.jpeg;*.jpe;*.jpc;*.j2k;*.jp2)' 'Portable Bitmap (*.pbm;*.pgm;*.ppm)' 'Portable Network Graphics (*.png)' 'Tagged Image File Format (*.tif;*.tiff;*.fax)' 'Truevision Targa (*.tga;*.targa;*.vda;*.vst)' 'Windows Enhanced Meta File (*.emf)' 'Windows Meta File (*.wmf)' 'Windows or OS/2 Bitmap (*.bmp;*.dib;*.rle)' 'Zsoft PC Paintbrush (*.pcx)') AddNewToStart = False AddNewToList = False CaseSensitive = False DestroyObjects = False LimitToList = True ReadOnly = False LabelPos = lpTop LabelMargin = 2 LabelComponent = lbl_cmbFileFilter LabelRelLeft = 0 LabelRelTop = -15 end object edtSaveIn: TLblEdit Left = 8 Top = 324 Width = 241 Height = 21 Hint = 'Choose the folder that should receive the thumbnails. Leave blan' + 'k to use the current folder' Anchors = [akLeft, akBottom] TabOrder = 2 LabelPos = lpTop LabelMargin = 2 LabelComponent = lbl_edtSaveIn LabelRelLeft = 0 LabelRelTop = -15 end object btnSaveIn: TAttachedButton Left = 250 Top = 324 Height = 21 Hint = 'Browse|Browse disk' Anchors = [akLeft, akBottom] TabOrder = 3 Title = 'Save in' AttachedControl = edtSaveIn AttachTwoWay = True AllowMultiSelect = False BrowseDir = True OnGetName = btnSaveInGetName end object pnlLookIn: TPanel Left = 8 Top = 76 Width = 265 Height = 217 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone TabOrder = 1 object vclSplitter: TSplitter Left = 0 Top = 85 Width = 265 Height = 8 Cursor = crVSplit Hint = 'Move splitter to resize the "Explorer" windows' Align = alTop ResizeStyle = rsUpdate end object treLookInFolder: TPTShellTree Left = 0 Top = 0 Width = 265 Height = 85 Hint = 'Select the folder that contains your images' ShellList = lstFiles Options = [ptstoAutoFill, ptstoDefaultKeyHandling, ptstoShowHidden] Indent = 19 Align = alTop TabOrder = 0 PopupMenu = pmnTreeList Constraints.MinHeight = 16 end object lstFiles: TEnhShellList Left = 0 Top = 93 Width = 265 Height = 124 Hint = 'Select images to process; press Ctrl+click to select multiple fi' + 'les' Options = [ptsloAutoFill, ptsloDefaultKeyHandling, ptsloDontChangeFolder, ptsloDontGoBelowBase, ptsloHideFoldersWhenLinkedToTree, ptsloFolderContextMenu] OnFillComplete = lstFilesFillComplete Align = alClient HideSelection = False IconOptions.AutoArrange = True MultiSelect = True PopupMenu = pmnFileList TabOrder = 1 ViewStyle = vsList Constraints.MinHeight = 16 OnSelectItem = lstFilesSelectItem OnRefreshItem = lstFilesRefreshItem OnShowItem = lstFilesShowItem end end end object tbsSettings: TTabSheet HelpContext = 60 Caption = '&Settings' ImageIndex = 1 object lbl_edtMaxWidth: TEnhLabel Left = 8 Top = 9 Width = 54 Height = 13 Caption = 'Max. &width:' FocusControl = edtMaxWidth end object lbl_edtMaxHeight: TEnhLabel Left = 98 Top = 9 Width = 58 Height = 13 Caption = 'Max. &height:' FocusControl = edtMaxHeight end object lbl_edtPrefix: TEnhLabel Left = 98 Top = 57 Width = 58 Height = 13 Caption = '&Prefix/suffix:' FocusControl = edtPrefix end object lblJpgQuality: TEnhLabel Left = 82 Top = 112 Width = 60 Height = 13 Hint = 'Double-click to reset the trackbar' Alignment = taCenter Caption = '&JPEG quality' FocusControl = tbrJpgQuality OnDblClick = ResetSlider end object lblBrightness: TEnhLabel Left = 86 Top = 160 Width = 49 Height = 13 Hint = 'Double-click to reset the trackbar' Alignment = taCenter Caption = '&Brightness' FocusControl = trbBrightness OnDblClick = ResetSlider end object lblContrastLess: TEnhLabel Left = 12 Top = 208 Width = 4 Height = 16 Caption = '-' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblContrastMore: TEnhLabel Left = 204 Top = 208 Width = 6 Height = 13 Alignment = taRightJustify Caption = '+' end object lblContrast: TEnhLabel Left = 91 Top = 208 Width = 39 Height = 13 Hint = 'Double-click to reset the trackbar' Alignment = taCenter Caption = '&Contrast' FocusControl = trbContrast OnDblClick = ResetSlider end object lblSharpness: TEnhLabel Left = 87 Top = 256 Width = 50 Height = 13 Hint = 'Double-click to reset the trackbar' Alignment = taCenter Caption = 'Sharpn&ess' FocusControl = trbSharpness OnDblClick = ResetSlider end object lblRotate: TEnhLabel Left = 96 Top = 304 Width = 32 Height = 13 Hint = 'Double-click to reset the trackbar' Alignment = taCenter Caption = '&Rotate' FocusControl = trbRotate OnDblClick = ResetSlider end object lblQuality1: TEnhLabel Left = 8 Top = 112 Width = 6 Height = 13 Caption = '1' end object lblQuality100: TEnhLabel Left = 190 Top = 112 Width = 18 Height = 13 Caption = '100' end object lblBrightnessLess: TEnhLabel Left = 12 Top = 160 Width = 4 Height = 16 Caption = '-' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblBrightnessMore: TEnhLabel Left = 204 Top = 160 Width = 6 Height = 13 Alignment = taRightJustify Caption = '+' end object lblSharpnessLess: TEnhLabel Left = 12 Top = 256 Width = 4 Height = 16 Caption = '-' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblSharpnessMore: TEnhLabel Left = 204 Top = 256 Width = 6 Height = 13 Alignment = taRightJustify Caption = '+' end object lblRotateLeft: TEnhLabel Left = 8 Top = 304 Width = 25 Height = 13 Caption = '-180�' end object lblRotateRight: TEnhLabel Left = 184 Top = 304 Width = 28 Height = 13 Alignment = taRightJustify Caption = '+180�' end object lbl_cmbResizeFilter: TEnhLabel Left = 8 Top = 57 Width = 46 Height = 13 Caption = 'Al&gorithm:' FocusControl = cmbResizeFilter end object lbl_cmbResize: TEnhLabel Left = 188 Top = 9 Width = 35 Height = 13 Caption = 'Resi&ze:' FocusControl = cmbResize end object lbl_cmbNewName: TEnhLabel Left = 188 Top = 57 Width = 54 Height = 13 Caption = '&New name:' FocusControl = cmbNewName end object edtMaxWidth: TLblEdit Left = 8 Top = 24 Width = 81 Height = 21 Hint = 'Defines maximum width for thumbnail creation' TabOrder = 0 OnEnter = FieldEnter OnExit = FieldExit OnKeyPress = KeyPress OnKeyUp = KeyUp LabelPos = lpTop LabelMargin = 2 LabelComponent = lbl_edtMaxWidth LabelRelLeft = 0 LabelRelTop = -15 end object edtMaxHeight: TLblEdit Left = 98 Top = 24 Width = 81 Height = 21 Hint = 'Defines maximum height for thumbnail creation' TabOrder = 1 OnEnter = FieldEnter OnExit = FieldExit OnKeyPress = KeyPress OnKeyUp = KeyUp LabelPos = lpTop LabelMargin = 2 LabelComponent = lbl_edtMaxHeight LabelRelLeft = 0 LabelRelTop = -15 end object edtPrefix: TLblEdit Left = 98 Top = 72 Width = 81 Height = 21 Hint = 'Defines the prefix/suffix added to the name of the thumbnail fil' + 'e' TabOrder = 4 OnEnter = FieldEnter OnExit = FieldExit OnKeyPress = edtPrefixKeyPress OnKeyUp = edtPrefixKeyUp LabelPos = lpTop LabelMargin = 2 LabelComponent = lbl_edtPrefix LabelRelLeft = 0 LabelRelTop = -15 end object tbrJpgQuality: TTrackBar Left = 4 Top = 128 Width = 212 Height = 25 Hint = '70|The higher the value, the better the quality and the bigger t' + 'he file' Max = 100 Min = 1 Orientation = trHorizontal ParentShowHint = False PageSize = 5 PopupMenu = pmnReset Frequency = 5 Position = 80 SelEnd = 0 SelStart = 0 ShowHint = True TabOrder = 6 ThumbLength = 15 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = PositionChanged end object trbBrightness: TTrackBar Left = 4 Top = 176 Width = 212 Height = 25 Hint = '0|Adjusts the brightness used to create the thumbnails' Max = 100 Min = -100 Orientation = trHorizontal ParentShowHint = False PageSize = 10 PopupMenu = pmnReset Frequency = 5 Position = 0 SelEnd = 0 SelStart = 0 ShowHint = True TabOrder = 8 ThumbLength = 15 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = PositionChanged end object trbContrast: TTrackBar Left = 4 Top = 224 Width = 212 Height = 25 Hint = '0|Adjusts the contrast used to create the thumbnails' Max = 100 Min = -100 Orientation = trHorizontal ParentShowHint = False PageSize = 10 PopupMenu = pmnReset Frequency = 5 Position = 0 SelEnd = 0 SelStart = 0 ShowHint = True TabOrder = 10 ThumbLength = 15 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = PositionChanged end object trbSharpness: TTrackBar Left = 4 Top = 272 Width = 212 Height = 25 Hint = '0|Adjusts the image sharpness used to create the thumbnails' Max = 100 Min = -100 Orientation = trHorizontal ParentShowHint = False PageSize = 10 PopupMenu = pmnReset Frequency = 5 Position = 0 SelEnd = 0 SelStart = 0 ShowHint = True TabOrder = 12 ThumbLength = 15 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = PositionChanged end object trbRotate: TTrackBar Left = 4 Top = 320 Width = 212 Height = 25 Hint = '0�|Rotation applied to thumbnail image' Max = 180 Min = -180 Orientation = trHorizontal ParentShowHint = False PageSize = 90 PopupMenu = pmnReset Frequency = 90 Position = 0 SelEnd = 0 SelStart = 0 ShowHint = True TabOrder = 14 ThumbLength = 15 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = PositionChanged OnExit = edtRotateExit end object cmbResizeFilter: TLblComboBox Left = 8 Top = 72 Width = 81 Height = 21 Hint = 'Defines the algorithm used for resizing images' Style = csDropDownList DropDownCount = 12 ItemHeight = 13 TabOrder = 3 OnChange = cmbResizeFilterChange Items.Strings = ( '[ Smart ]' 'None' 'Triangle' 'Hermite' 'Bell' 'BSpline' 'Lanczos3' 'Mitchell' 'Nearest' 'Linear' 'Fast Linear' 'Lossless') AddNewToStart = False AddNewToList = False CaseSensitive = False DestroyObjects = False LimitToList = True ReadOnly = False LabelPos = lpTop LabelMargin = 2 LabelComponent = lbl_cmbResizeFilter LabelRelLeft = 0 LabelRelTop = -15 end object edtQuality: TSpinEdit Left = 224 Top = 126 Width = 53 Height = 22 Hint = 'JPEG quality' MaxValue = 100 MinValue = 1 TabOrder = 7 Value = 80 OnChange = edtQualityChange end object edtBrightness: TSpinEdit Left = 224 Top = 174 Width = 53 Height = 22 Hint = 'Brightness' MaxValue = 100 MinValue = -100 TabOrder = 9 Value = 0 OnChange = edtBrightnessChange end object edtContrast: TSpinEdit Left = 224 Top = 222 Width = 53 Height = 22 Hint = 'Contrast' MaxValue = 100 MinValue = -100 TabOrder = 11 Value = 0 OnChange = edtContrastChange end object edtSharpness: TSpinEdit Left = 224 Top = 270 Width = 53 Height = 22 Hint = 'Sharpness' MaxValue = 100 MinValue = -100 TabOrder = 13 Value = 0 OnChange = edtSharpnessChange end object edtRotate: TSpinEdit Left = 224 Top = 318 Width = 53 Height = 22 Hint = 'Rotate' MaxValue = 180 MinValue = -180 TabOrder = 15 Value = 0 OnChange = edtRotateChange OnExit = edtRotateExit end object cmbResize: TLblComboBox Left = 188 Top = 24 Width = 88 Height = 21 Hint = 'Choose how pictures should be resized' Style = csDropDownList ItemHeight = 13 TabOrder = 2 OnChange = cmbResizeChange Items.Strings = ( 'No resize' 'Best fit' 'Shrink to fit' 'Enlarge to fit' 'Stretch to fit') AddNewToStart = False AddNewToList = False CaseSensitive = False DestroyObjects = False LimitToList = False ReadOnly = False LabelPos = lpTop LabelMargin = 2 LabelComponent = lbl_cmbResize LabelRelLeft = 0 LabelRelTop = -15 end object cmbNewName: TLblComboBox Left = 188 Top = 72 Width = 88 Height = 21 Hint = 'Choose if thumbnail filename uses a prefix or suffix' Style = csDropDownList ItemHeight = 13 TabOrder = 5 OnChange = cmbNewNameChange Items.Strings = ( 'Auto detect' 'Add nothing' 'Add prefix' 'Add suffix' 'Rename') AddNewToStart = False AddNewToList = False CaseSensitive = False DestroyObjects = False LimitToList = False ReadOnly = False LabelPos = lpTop LabelMargin = 2 LabelComponent = lbl_cmbNewName LabelRelLeft = 0 LabelRelTop = -15 end end object tbsAbout: TTabSheet Caption = 'About' ImageIndex = 2 object imgIcon: TImage Left = 16 Top = 16 Width = 32 Height = 32 end object btnWebsite: TButton Left = 184 Top = 320 Width = 91 Height = 25 Anchors = [akRight, akBottom] Caption = '&Web Site' TabOrder = 2 OnClick = btnWebsiteClick end object stxAbout: TStaticText Left = 64 Top = 16 Width = 201 Height = 289 AutoSize = False TabOrder = 0 end object btnHelp: TButton Left = 80 Top = 320 Width = 91 Height = 25 Hint = 'Click here to open the Help file' Anchors = [akRight, akBottom] Caption = 'Help F1' TabOrder = 1 OnClick = btnHelpClick end end object tbsNews: TTabSheet HelpContext = 50 Caption = 'News' ImageIndex = 3 object pnlNews: TPanel Left = 0 Top = 40 Width = 284 Height = 315 Align = alBottom Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone TabOrder = 0 end object cbxPollNews: TCheckBox Left = 8 Top = 8 Width = 273 Height = 17 Hint = 'Polls the Internet every 15 days for news updates' Caption = 'Check for news every 15 days' TabOrder = 1 OnClick = cbxPollNewsClick end object btnUpdate: TButton Left = 200 Top = 8 Width = 75 Height = 25 Hint = 'Click to update news, if available' Anchors = [akTop, akRight] Caption = '&Update' TabOrder = 2 Visible = False OnClick = btnUpdateClick end end end object btnMakeAll: TButton Left = 328 Top = 344 Width = 75 Height = 25 Hint = 'Makes thumbnails of all the files in the selected folder' Anchors = [akRight, akBottom] Caption = 'Make &All' Enabled = False TabOrder = 2 OnClick = btnMakeAllClick end object btnMake: TButton Left = 416 Top = 344 Width = 75 Height = 25 Hint = 'Makes thumbnails of only the selected images' Anchors = [akRight, akBottom] Caption = '&Make' Enabled = False TabOrder = 3 OnClick = btnMakeClick end object btnClose: TButton Left = 504 Top = 344 Width = 75 Height = 25 Hint = 'Closes Easy Thumbnails program' Anchors = [akRight, akBottom] Cancel = True Caption = 'Close' TabOrder = 4 OnClick = btnCloseClick end object pnlStatusBar: TStatusBar Left = 0 Top = 383 Width = 592 Height = 19 Panels = <> SimplePanel = True end object pmnOriginalImage: TPopupMenu AutoHotkeys = maManual AutoLineReduction = maManual OnPopup = pmnOriginalImagePopup Left = 472 Top = 200 object smnFitinWindow: TMenuItem Caption = '&Fit in Window' Hint = 'Set this option to shrink images so that they fit within the win' + 'dow' OnClick = smnFitinWindowClick end object smnCopyImageTag1: TMenuItem Caption = '&Copy Image Tag' Hint = 'Copies the appropriate HTML tag for the image to the Clipboard' OnClick = smnCopyImageTag1Click end end object vclTimer: TEfTimer Interval = 125 Delay = 500 StopAfterDelay = True OnDelayOver = vclTimerDelayOver Left = 440 Top = 200 end object pmnReset: TPopupMenu AutoHotkeys = maManual AutoLineReduction = maManual Left = 504 Top = 200 object smnResetTrackbar: TMenuItem Caption = '&Reset Trackbar' Hint = 'Resets the trackbar' OnClick = smnResetTrackbarClick end end object pmnPreviewImage: TPopupMenu AutoHotkeys = maManual AutoLineReduction = maManual OnPopup = pmnPreviewImagePopup Left = 472 Top = 240 object smnCopyImageTag2: TMenuItem Caption = '&Copy Image Tag' Hint = 'Copies the appropriate HTML tag for the image to the Clipboard' OnClick = smnCopyImageTag1Click end object smnQuickPreview: TMenuItem Caption = '&Quick Preview' Hint = 'Check this option if you want to speed up the rendering of the t' + 'humbnail previews (file size is not available when checked)' Visible = False end object smnSaveasJPEG: TMenuItem Caption = '&Save PNG as JPEG' Hint = 'Check this option if you want to PNG images saved as JPEG thumbn' + 'ails instead of their native format' OnClick = smnSaveasJPEGClick end end object pmnFileList: TPopupMenu OnPopup = pmnFileListPopup Left = 504 Top = 240 object smnView: TMenuItem Caption = '&View' OnClick = smnViewClick object smnLargeIcons: TMenuItem Caption = 'Lar&ge Icons' Hint = 'Displays items by using large icons' RadioItem = True OnClick = smnViewItemClick end object smnSmallIcons: TMenuItem Tag = 1 Caption = '&Small Icons' Hint = 'Displays items by using small icons' RadioItem = True OnClick = smnViewItemClick end object smnList: TMenuItem Tag = 2 Caption = '&List' Hint = 'Displays items in a list' RadioItem = True OnClick = smnViewItemClick end object smnDetails: TMenuItem Tag = 3 Caption = '&Details' Hint = 'Displays information about each item in the window' RadioItem = True OnClick = smnViewItemClick end end object smnArrangeIcons: TMenuItem Caption = '&Arrange Icons' OnClick = smnArrangeIconsClick object smnbyName: TMenuItem Tag = 1 Caption = 'by &Name' Hint = 'Sorts items alphabetically by name' RadioItem = True OnClick = smnArrangeItemClick end object smnbyType: TMenuItem Tag = 3 Caption = 'by &Type' Hint = 'Sorts items by type' RadioItem = True OnClick = smnArrangeItemClick end object smnbySize: TMenuItem Tag = 2 Caption = 'by &Size' Hint = 'Sorts items by size, from smallest to largest' RadioItem = True OnClick = smnArrangeItemClick end object smnbyDate: TMenuItem Tag = 4 Caption = 'by &Date' Hint = 'Sorts items by date, from oldest to most recent' RadioItem = True OnClick = smnArrangeItemClick end end object N1: TMenuItem Caption = '-' end object smnRefresh: TMenuItem Caption = '&Refresh' Hint = 'Refreshes the contents of the current folder' OnClick = smnRefreshClick end object smnMakeWebpage: TMenuItem Caption = '&Make Web page' Hint = 'Creates a Web page from selected images' Visible = False OnClick = smnMakeWebpageClick end object smnShowinbrowser: TMenuItem Caption = '&Show in browser' Hint = 'Shows selected images in Web browser' Visible = False OnClick = smnShowinbrowserClick end object N5: TMenuItem Caption = '-' end object smnDelete: TMenuItem Caption = '&Delete' Hint = 'Sends selected files to Recycle Bin' OnClick = smnDeleteClick end object N2: TMenuItem Caption = '-' end object smnProperties: TMenuItem Caption = '&Properties' Hint = 'Displays properties for this file' OnClick = smnPropertiesClick end end object pmnTreeList: TPopupMenu Left = 536 Top = 240 object smnTreeFind: TMenuItem Caption = '&Find...' Hint = 'Opens the find dialog' OnClick = smnTreeFindClick end object N3: TMenuItem Caption = '-' end object smnTreeRefresh: TMenuItem Caption = '&Refresh' Hint = 'Refreshes the window contents' OnClick = smnTreeRefreshClick end object N4: TMenuItem Caption = '-' end object smnTreeProperties: TMenuItem Caption = '&Properties' Hint = 'Displays properties for the current item' OnClick = smnTreePropertiesClick end end object vclImageConv: TEfImageConv PreviewFont.Charset = DEFAULT_CHARSET PreviewFont.Color = clWindowText PreviewFont.Height = -11 PreviewFont.Name = 'MS Sans Serif' PreviewFont.Style = [] CaptionFont.Charset = DEFAULT_CHARSET CaptionFont.Color = clWindowText CaptionFont.Height = -11 CaptionFont.Name = 'MS Sans Serif' CaptionFont.Style = [] OutputFormat = 10002 AddSubName = adAutoDetect CopyOnly = False JpgLossless = False ImageBrightness = 0 ImageContrast = 0 ImageCropRotate = False ImageDataType = itOriginal ImageFlip = fiNoFlip ImageHue = 0 ImageResampleFilter = rfNone ImageChangeSize = True ImageRotate = 0 ImageSaturation = 0 ImageSharpness = 0 LowercaseName = False MaxHeight = 150 MaxWidth = 150 ResizeMode = scReduce SubName = 'tn_' OnError = vclImageConvError Left = 536 Top = 200 end end